home *** CD-ROM | disk | FTP | other *** search
/ Go64! / Go64_1999-03_1999_CSW_Side_A.d64 / boot 9.5 (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  615b  |  18 lines
  1. 10 ifmrthen100
  2. 15 ifpeek(6)=255thenpoke45,peek(174):poke46,peek(175):clr
  3. 17 poke55,0:poke56,160:clr
  4. 20 dv=peek(186):ifdv<8ordv>16thendv=8
  5. 30 open15,dv,15:v$="9.5":print"[147]":ifpeek(648)=4thenprint"";
  6. 40 r=57088:a=1:fori=2to5:poker+i,i:next:fori=2to5:ifpeek(r+i)<>ithena=0
  7. 50 next:ifa=0thenpoke1023,0:goto120
  8. 55 ifpeek(1023)>=8andpeek(1023)<=16thenu=peek(1023):goto110
  9. 56 ifpeek(817)=207thenu=peek(52997):goto110
  10. 60 u=0:fori=15to8step-1:open14,i,15:close14:if128andstthenu=i:i=8
  11. 70 next:ifu=0thenu=30
  12. 80 mr=25344
  13. 90 sys65418:print"[204]oading [210][193][205][196][207][211]...":load"ramdos64.bin*",dv,1
  14. 100 sysmr+12:poke780,u:poke781,207:sysmr+6-3*(peek(1023)>0)
  15. 110 print"[210][193][205]disk installed as device"u:poke1023,u
  16. 120 rem open5,2,0,chr$(6):print#5,"at&c1"
  17. 130 print"[204]oading [206]ovaterm "v$"!":load"novaterm "+v$,dv
  18.